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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 

LY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
Faanerchetee” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT 
AND SHOULD NOT BE CONSTRUED AS A COMMIT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBI 
SOFTWARE ON EQUIPMENT WHICH I 


TO CHANGE WITHOUT NOTICE 
MENT BY DIGITAL EQUIPMENT 


LITY FOR THE USE OR RELIABILITY OF ITS 
S NOT SUPPLIED BY DIGITAL. 
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C. A. MONIA 13-JUL-77 
MODIFIED BY: 


v03-001 RASO300 Ron Schaefer 19-Jun-1984 
Add DEVSM_NNM characteristic to DECHAR2 so that these 
devices will have the ‘‘node$"’ prefix. 


v02-005 ACG0179 Andrew C. Goldstein, 23-Jul-1980 18:32 
Fix ACP class code in DPT 
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SOPTDEF sDEFINE DPT OFFSETS 
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EMBDEF sDEFINE EMB OFFSETS 

SIDBDEF sDEF INE 18 meta 
1ODEF DEFINE 1/0 FUNCTION CODES 
IRPDEF DEFINE IRP OFFSETS 
UBADEF sDEFINE UBA REGISTER OFFSETS 
UCBDEF sDEFINE UCB OFFSETS 


Page 


RERAAKHTAEAAEKAAATAAAAAAAAAAAAAAHAATAAARAAAARAARARAAAAAAKATeeeeeeteAeeeeTeTese 


® 
® 
® 
® 
® 
® 
® 
w 
® 
® 
ee 
® 
® 
® 
® 
* 
® 
® 
® 
® 
® 


1 
(1) 


B 11 | 
DXPORIVER = VAX=11/780 RXO1 CONSOLE DRIVER 1§-SEP-1984 3 55:49 YAX/viNs Macro v04-00 Page | 


P=1984 00:14:13 CORIVER.SRCIDXPDRIVER.MAR; 1 | 
58 SVECDEF DEFINE INTERRUPT DISPATCH VECTOR OFFSETS | 
60 ; 
6] ; LOCAL SYMBOLS | 
ef : CONSOLE FLOPPY STATUS BIT DEFINITIONS 
65 * 
00 66 VIELD DXP_RXDB,0,<- :RECEIVER DATA BUFFER FIELD DEFINITIONS 
0 6 2CRC,,M>,= 'CRC ERROR | 
00 o8 <PAR,,M>,= ;PARITY 
99 ££ <INI, ,M>= ZINIT. COMPLETE | 
00 71 VIELD DXP_RXDB,6,<- ; 
0 7 2DEL. ,M>,= [DELETED DATA MARK READ | 
0000 7 <ERR, .M>= TERROR DETECTED | 
00 74 > : 
8 | 
0000 os + CONSOLE COMMAND FIELD DEFINITION 
$33 
00000800 $000 80 DXP_M_CMD = 8a8 : COMMAND BIT | 
$000 Be | 
$008 : t CONSOLE DATA BUFFER VALUES 
$000 BS | 
00000900 0000 $ DXP_RXDB_K_CMD = 9a8 INITIATE FLOPPY FUNCTION 
90000200 0000 DXP"RXDB-K-FCMP = ga8 [FLOPPY FUNCTION COMPLETE 
0000000 9000 8 DXPTRXDB~ x “PRTC = :PROTOCOL ERROR STATUS 
$0090: 
00 91 : HARDWARE FUNCTION CODES 
$3 | 
00000800 900 94 F_READSECTOR=8a8!0 :READ SECTOR 
9000801 0000 95 F_WRITESECTOR=8981 “WRITE SECTOR | 
9000 0¢ 000 36 FIREADSTATUS=888:2 SREAD STATUS | 
0000080 900 9 FIWRITEDELDATA=Ba 13 [WRITE DELETED DAT A SECTOR 
00000804 3 98 F~CANCEL=6a8 ! 4 [CANCEL FLOPPY FUNCTION | 
100 ; | 
09 1} LOCAL DATA 
000 1 5 DRIVER PROLOGUE TABLE | 
0 ie? 
106 DXPSOPT: : ; 
1 DPTAB. = [DEFINE DRIVER PROLOGUE TABLE 
1 : END=DXP_END,- SEND OF DRIVER 
1 ADAPTEREN LL,- SADAPTER TYPE 
110 FLAGS=DPTSM_ SVP {SYSTEM PAGE TABLE ENTRY REQUIRED | 
111 UcbSi ze<ucBsé Dk “ScTCNT+3 - ; UCB SIZE | 
11¢ NARE =DXxD “oRiver” NAME 
11 DPT_STOR {CONTROL BLOCK INIT VALUES 
114 DPT~STORE DDB. DDBSL pees \> ;DEFAULT ACP NAM 


o~ 
Me 
~ 
. 
© > 
a 2 
oa So 
a ow) 
— ° ” 
a a 4 
a a ev 
<= oa oO 
= [+ < —_ a 
© iu aw ka 
e Vea < uw ivy) ae 
ow = <2 = u2> 2 S 
o> ° en a ou —_— « 
wa “noe w +H = «> yer | uO 
| oa nn ws Naud w = a u—~ 
>a ~~ a -—Oo —w ww © Sec wor Oaew> 
“< — w —-cw waaca - 2E—- 2. 2oaa 
oa - «= wo ww w2z a2= + mt te am w2z 
rm ”" Z> — €aawna- 2 2- <a 2ewuo0 
eve Wf = ertarwe . Ow ft waht oe a 
| scr ww & wu WeVrFuOuw> UZ ow wwonMdr dre 
=u <« ward to wre wu > 4: 4 zraA-——-MNEvoOa 
._ + ewe WHC BwwWdDCU ooa<« CoO2Zzuw ~N 
Yar Yo Ure went YVoudgwetu B2vorezwnw — ——wo Za 
i Zw <z2wm Vewtwe NEO -« www «Oo wvwOEZVOU 
| >> a aw —S>UdcEeooe >a Ow a~owar<aad 
hee A teeta ad ee ee ee) en: oe: 4 pal 4 M=wWOO Oa 
<a «€£ Fees swEedvuZoo s0wware-ACaAWoa — - owr | 
<za ~ we" i - eg OO©—-awo vr a own 2ZZa 4 | 
| > a — —-fwx< wa >aea~n ue —VvOVUuuuZz | 
| Bw Uw DOVewM WWweDWwe ZAO Ot —- OO | 
| 9 Vwwee& D0 Ou Me QOQwZVvvcwocr- Wwe ew ’ 
| Om oMe Ieee Sow: —=0O0 Wea > — OVO wwe | 
e— NSS oT Zo aewcox >2axe ZO = ZEON | 
oe oe Owuw0O4w-Ocoaa xewZ w bt Sata ee e222 owwe j 
wer wu A & eZ OFtwEsrw anu Ocunwm j 
} LUN ee P sere cere rtese rete cece (tPA od eo ce ce coh +e ee rte te ee te te te tere j 
| oe os @ i ae «SD > @ v a i 
moa . a3N 3B LY >.> a j 
No a . + @Meesees DOO. # 
. oS s eONM@ moss 2s = aA | 
~~ ma; N WY we SMOAN3ZOax x | 
coco - << ae Mwww wees we CG 
oo mMaOdt <« <€auf@wooaurr-xo . ' 
—— 2 oe Z d= pomM=e so Ze3 2 
ss QAI 8 VEO OH IMVED s 
aa aa> > >o>rvei0a>S>ee-x 6 
- ww We Ww Www > a 4 s 
wn quo a 20A0M—vaouww a 8 A 
‘6 eee ‘ #eeeeeee 6 6 6 ‘ w w 
wun 1st tt tt 8 A32299233923 3oqaow al « 
_ PABOSE IF PS PORTE RKHHARKHAHARHPRAAAA GFA @ A 
QOO0—>TFOOoOZBDZOOOOOOOOOOHD ® @eomeem 
OV0eu. O40 FV ZOVVOVVVVVVOVULF A so = ey 
Or teste) st © ODDD50D505905909050>5="a w Orvra 
* * EERE ERE EB esse eee se ss se es od —222= 
_ DODKCLCSKLKLKLKLKLKHOKLOOOOOOOOOOOWDOQ @ pm Pe pee ] 
- QV S23 > 3 SF BY POVVYV VY VUVUUUWOZ c¢ *zZOu0l 
o> 2WwWwWwWwWww DwSD DD SDS aaa aD Sa ows i axznrevo 
Yu aoaoaoaoaoaa a + iad 2.7 4") 
I VY mem em mmr ive Rare lvelrerverrerververververreyrerveyverre) = ou xzaF5De 
cca @ @waaacaancacaacacaca =) 
ooo So COoOQooCoooooo°o°ooo a 
hh ee eee oe <x 
NNN A MNMMWMMVWVWMVMNVNNOYN a @ 
eee a eeseteeeeveueeceeseees wn < 
me PR RR ee = i 
a.0a08 a a2000000000000a00 a f=) 
o2oa (We ~~) —-1-1-1-1-1-1-1-1-!-!-1-) on o 
w 
> 
_— 
< 
Qa 
*ere 


NOP DOOM CUM TN OR. DAO CIM TN OR. DAO CUM FTN OR. OKO CUM 
III OOOO IOI OOP IPI IOI AF EF EF EF FFF TTT 


CO i ee 


PME P-P-P-BBB BR. WANE OVO LZ UMDVYOR.R. VLODOOOCOOOCOCOOCOOCO 
CNS TSF TTT TTT ST TFNNN OOOO FR. DODDDOOCOOSOSCOSOSOSOSOOSSO 
ODOOOOSOOOOSOOOSOOSOOSOSOSOOSOOOSSOOSOSOSOSOOSOSOSOSOOOSOSoSoO 
COOOOOOOOSOOOSOSOOSOSSSOSOSSOSOSSOSSOSSOSOSOSOOSOOOOOOSOOoOO 


= VAX=11/780 RX01 CONSOLE DRIVER 
anense? 
DXSUNITINIT 


DXPDRIVER 
06-000 


DXPDRIVER 
04000 


< 
DY 
ae 


STA 


DOOCOSOSOSOSOOOSOOOOOOSOOSOOOOOOOOVDOOOOOOOOOOOO + 
OOOCOOCCSCCCooooo = 


OOOCOCOCOOSOCOSOGOOOOOSOSSSooooooooooooooooo 


A.A AANA. AAA. AAA A AAAI AAA AAAI AINA AI IAI 


D111 
ONSOLE DRIVER “SEP=1984 23:55:49 VAX/VMS Macro v04-00 p 
Teer aee FaiF2T% YORIVES Bacco yok TOO ans ae 


~SBTTL START 1/0 OPERATION 


STARTIO = START 1/0 OPERATION ON DEVICE UNIT 


THIS once roret i$ puree TO START AN 1/0 OPERATION ON THE CONSOLE 
FLOPPY. CONTROL ALTERNATES BETWEEN THE FLOPPY DRIVER AND THE FLOPPY 
tity ROUTIN DXUTILITY THAT ARE SHARED BY ALL FLOPPY DEVICES. 
THE DRIVER PERFORMS ALL DEVICE-DEPENDANT PROCESSING WHILE THE UTILI- 
UTINES HANDLE THE INTERFACE BETWEEN THE DRIVE AND THE SYSTEM OR 
USER. THE PROTOCOL FOR EACH DATA TRANSFER IS AS FOLLOWS: 
1. THE SYSTEM DETERMINES THE LEGALITY OF A FUNCTION AND ANY PRE- 
PROCESSING TO BE PERFORMED BY SCANNING THE COMMON FUNCTION DE- 
CISION TABLE. 
2. A REQUEST IS DEQUEUVED AND THE DRIVER IS ENTERED AT ITS START=1/0 
ENTRY POINT. 
A SUBROUTINE CALL TO COMMON CODE IS EXECUTED TO COMPUTE THE INI- 


3. 

TIAL MEDIA ADDRESS AND SETUP THE 1/0 DATA BASE FOR THE TRANSFER. 
« A CO-ROUTINE CALL TO THE DRIVER IS EXECUTED TO POSITION THE MEDIA 
. ae 7: hla CALL TO THE DRIVER IS PERFORMED TO TRANSFER ONE BYTE 


uw & 


6. A CO-ROUTINE CALL TO THE COMMON PROCESSOR IS PERFORMED TO UPDATE 
THE ADDRESS AND BYTE COUNT AND CHECK FOR ENDPOINT CONDITIONS 


STEPS 4 = 6 ARE EXECUTED AT HARDWARE IPL LEVEL. A TRANSFER TO FORK LEVEL 
MUST BE EXECUTED WHENEVER: 


- ONE SECTOR OF DATA HAS BEEN TRANSFERRED 

- AN ERROR CONDITION IS DETECTED. 
CURANCE OF AN ERROR, THE eh PERFORMS ANY satay DEPENDANT 
IONS THEN TRANSFERS CONTROL TO THE COMMON EXCEPTION ENTRY POINT 
SET MEDIA AND USER ADDRESSES AND REISSUE THE REQUEST. 
THE FLAGS DESCRIBED BELOW ARE USED TO SIGNAL EXCEPTION CONDITIONS: 

FLAGS SET BY DRIVER: 
WHEN EXCEPTION RETURN IS TAKEN: 


R3 LBS = RETRIABLE HARDWARE ERROR 
R5 LBC = FATAL HARDWARE ERROR 


RO CONTAINS THE STATUS CODE REFLECTING THE TYPE OF ERROR 
DETECTED. 


o oc 
FUNCT 
TO RE 


FLAGS SET BY UTILITY: 
R3 LBC = TRANSFER OF ONE SECTOR COMPLETED 
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“SEP=1 214:1 DRIVER.SRC JDXPDRIVER.MAR; 1 ( 
R3 LBS = PERFORM NORMAL DRIVER FUNCTION 


INPUTS: 


3 = ADORE F I/ : 
= ADORE F DE T CONTROL BLOCK 


; OUTPUTS: 


eeerereeOUTPUTSrererane 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


-ENABL LSB 


DPAXRQDNMNT ES BL ENN AAAI NAAN 
OEMMNODW O LVI DW W Culm rn coco coco Caco Ca Co CD CD CD CD CD CD CD CD CD 


0 
STARTIO: ; 
00000000'°EF 16 ° sate JSB DXSSTARTIO :CALL UTILITY ROUTINE TO SETUP PHYSICAL ADDR 
53 0800 8F 3¢ 0 MOVZWL #F _READSECTOR,R3 READ PH PHYSICAL SECTOR 
03 68 AS) 03 3 BBC #uCBSV_DX_ WRITE, uCBSW pevsrscr ) REA 
53 01 = 80 0 foi ADDB2 #<F_WRITESECTOR-F -REABSECTOR> ,R3 CCONVERT™ FUNET ION CODE TO WRITE SEC 
63 10 00 BSBB. = OXPOUT i SEND COMMAND TO FLOPPY 
53 00BC g 9A 00 MOVZBL UCBSL_MEDIA(RS) ,R3 GET SECTOR NUMBER 
: 10 00 BSBB OUTPUT SECTOR 
53 O0BE ¢ 9A 00 MOVZBL UcBsL MEDIA+2(R5S) ,R3 GET CYLINDER QhuMBER 
5 10 00 BSBB UT END CYLINDE R NUMBER 
10 68 AS = 03 £0 0 5 AUCBSY _DX_WRITE ,UCBSW_ Devsiscr ) DXPWRITE ;BRANCH IF WRITE 
m4 9 oa BSBB = DXPINP AIT FOR FLOPPY TO FINISH 
27 10 00 BSBBs«OXP WAIT FOR INPUT DATA 
0000 0S) 553——i«90s« MOVB =sR3s SUCBSL_DX_BFPNT(RS) ; STORE BYTE 
9— 16 006 JSB aisp)+ 
F453 EB 0068 BiBS sR TIF LBS CONT INUE TRANSFER 
0— 11 BRB 40$ NO MORE DAT 


DXPWRITE = OUTPUT TO CONSOLE FLOPPY 


THIS ROUTINE IS ENTERED TO WRITE ONE BYTE OF pate ON THE CONSOLE FLOPPY. 


| 
A URN TO CALLER 
F AN ERROR OCCURS, A Soe bg CALL IS MADE TO THE “RETURN 1 ENTRY POINT | 


R3 LBS = RETRIABLE ERROR 
R3 LBC = FATAL ERROR | 
| 


THE ERROR CODE IS IN RO. 
IF NO ERROR OCCURS, A RETURN TO THE DRIVER IS EXECUTED. 
INPUTS: 


PDP PVPVIVIVSVSVSVSISIIN EB BS BS BB AINA AAAI AAAIPOPIPININPINIPININIDY 2 O_O 


OD NIP AE O OD NIP NEW 8 OD NIA NEW O OD NAME WWI OOO NAU EW OQOONOUSW Px 
@ 
@ 


QUEST TO WRITE ONE BYTE OF DATA 
RN ADDRESS 


on 
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vee ti RATION ae 4 138 83; 214: 43 YORIVER R. SRCIDXPDRIVER. MAR; 1 . (3) 
; R3 LBC = SECTOR TRANSFER COMPLETE | 
f ; OUTPUTS: | 
fs ; A RETURN TO INLINE CODE IS EXECUTED FOR A SUCCESFUL TRANSFER. 
75: If SECTOR TRANSFER IS COMPLETE, A FORK IS EXECUTED BEFORE CALLING 
i: : THE CALLER. | 
Py | 
28 : A RETURN TO THE EXCEPTION ENTRY POINT IS TAKEN IF N ERROR OCCURS. | 
79 : IN THIS CASE, R3 INDICATES THE SEVERITY AND RO C TAINS THE ERROR 
0 : CODE. 
qi | 
4 DXPWRITE: ; 
53 0000 Bs 5 MOVZBL @UCBSL_DX_BFPNT(RS),R3 :GET OUTPUT DATA 
9 : BSBB sd OXPOUT [SEND TO DEVICE 
5 JSB a(SP)+ SCALL THE CAL LER 
F4 5 s BLBS R3,DXPWRITE [IF LBS WRITE ANOTHER BYTE 
0d } so BSBB Ss DP INP ;WAIT FOR HLOPPY FUNCTION COMPLETE | 
54 OBE 91 "  MOVL. «(SPD +, RG :RETRIEVE RETURN ADDRESS 
36 1OF ORK ‘DROP TO FORK LEVEL 
64 9 JS8 (R4) SCALL THE. rol ER 
B3 34 BRB RESTART :GO AGAIN | 
96 .DSABL LSB | 
4 + 
$3 + DXPINP = WAIT FOR FLOPPY INPUT INTERRUPT 
a $ THIS ROUTINE IS ENTERED VIA A BSB TO WAIT FOR AN INPUT INTERRUPT. | 
; : IT ENTERS COMMON CODE TO EXECUTE A WAIT FOR INTERRUPT. ON RECEIPT 
3: OF THE INTERRUPT A RETURN TO THE CALLER IS EXECUTED AT ISR LEVEL. | 
5 : INPUTS: 
3 (SP) = RETURN TO CALLER | 
5 : 4(SP) = RETURN TO CALLERS CALLER (DXUTILITY CO-ROUTINE) | 
08 8(SP) = RETURN TO EXECUTIVE | 
1 OUTPUTS: | 
18 ; RS = INPUT DATA | 
1 : R5 = UCB ADDRESS | 
1 : (SP) = RETURN TO CO-ROUTINE IN DXUTILITY | 
18 ;- | 
i$ | 
p .ENABL LSB 
: DXPINP: : 
DSBINT #31 SE ALL INTERRUPTS 
25 64 AS 05 4 BBS #uces POWER UCBSW_STS(RS) $ ;BRANCH IF POWER FAILURE 
5 POPR #*F<R27R3,R4> 7GET IPL IN Re RETURNS IN R3, RG 
é PUSHL 2 SRESTORE IPL TO TOP OF STACK 
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DXPDRIVER 
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35 64 fe a A 


° 
H 
; 
: 
‘ 
; 
° 
° 
° 
. 
. 
° 
° 
° 
. 
° 
° 


FAAS TUE PEEPLES EE 


DEUS ODND NEW 0 ODA NEW O ODNO UNE 


6 11 
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START 1/0 OPERATION ee 


:¢+ 
; DXPOUT = PERFORM OUTPUT TO THE CONSOLE FLOPPY DISK 
; THIS ROUTINE IS ENTERED VIA A BSB TO SEND DATA TO 


IT ENTERS THE COMMON CONSOLE INTERRUPT HANDLER TO 


Lee 
oath fy meee (DXUTILITY 


OUTPUTS: 
RS = UCB ADDRESS 
(SP) = RETURN TO CO-ROUTINE IN DXUTILITY 


THE CONSOLE FLOPPY. 
TRANSFER THE DATA. 


CO-ROUT INE) 


DXPOUT: 
DSBINT #31 ISABLE ALL DEVICE INTERRUPTS 
0A 64 A505 ET 0086 sg, OBE AUCBSV_POWER UCB SW_ malt 10$ ;BRANCH IF NO POWER FAILURE 
BE "  ENBINT TENABLE INTERRUPTS 
18 BA 008 POPR —- #*MCR3,R4> REMOVE RETURNS FROM STACK 
$3 D4 00C CLRL OR ;SET TO FLAG NONFATAL ERROR 
0088 31 00¢ ros, RH SCO308 ; 
00000000'GF 16 20c5 ane JSB -- G*CONSSTARTIO ;STARTUP THE DEVICE 
1c BA 00¢B "— POPR «= #*NCR2,R3,R4> :GET IPL IN R2, RETURNS IN R3, RA 
52 DD 00CD PUSHL :RESTORE IPL TO TOP OF ST ACK 
OCF «36 WFIKPCH 4 T_FOR INTERRUPT, KEEP CHANNEL 
15.64 .A5 07 ES QOD9 368 = BBC ZUCBSVINTTYPE ,UCBSU_ srsitsss3 308"; 1F CLEAR, RECEIVED OUTPUT INTERRUP 
9ons cs 53 D0 0D 29 ; ROVE R3.UCBS) DX RXDB(RS) AVE CONTENTS OF R 
7€ EF O0E3 37 EXT2V # rex RTRACT COMMAND FIELD 
02 BE D1 00EB  37¢ EMPL. (sb ye cecbxP. *RXDB_K_FCMP@=B>; TEST COMPLETION. CODE 
19 0068 37 BLSS $ s1F°LSS PROCESS NEXT CHARACTER 
12 Q0ED 37% BNEQ © DXPERR i1F_NEQ, ERROR 
95 OOEF 375 TSTB OR TEST SfaTUS 
12 OOF) 376 = BNE DXPERR ;1F NEQ, EXCEPTION CONDITION 
54 Dp DOF 2 " — PUSHL RG SET RETURN TO CALLER 
10.85 17 OOS $79 JAP @UCBSL_FR3(RS) ZRETURN TO CALLER 
DOF 7 “°F! ospint #31 ior TALL INTERRUPTS 
06,64 A505 £0 BOFE 386 BBS = MUCBSY POWER UCBSW_STS(RS) 438 :D0 NOT REINITIALIZE ON POWER FALL 
‘GF §=616 010 JSB = G*CONSTNITIAL INITIALIZE DEVICE AND OUTPUT QUEUE 
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BIS reucssR. IN NT UE6SA oetaS ocosu’s TS ch ) se NAece INTERRUPTS AND TIMEOUTS 
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00000000 ' EF 
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780 RxO1 ofOnsore DRIVER © SEP=1 :55:49 YAX/VMS Macro v04-00 Page 
OPERAT BSE SBe Goitaiis FOMIVER. SeeSoxbonrocR.man:1 2% cf 
4 438: Py 
5 ENBINT TENABLE INTERRUPT 
§ cLRL R3 'SET TO FLAG FATAL ERROR 
MOVZWL #S$8_TIMEQUT.RO :GET FINAL STATUS 
8 BRB 6 3 
0 3+ 
31 3 DXPERR = HARDWARE DEPENDANT ERROR PROCESSING 
38 : THIS ROUTINE IS ENTERED WHENEVER AN ERROR INDICATION IS RECEIVED FROM 
94 : THE FLOPPY INTERFACE. IF THE PROBLEM WAS NOT CAUSED BY DEVICE TIMEOUT 
99 3 OR POWER FAIL THEN THE DEVICE REGISTERS ARE SAVED AND A FORK IS EXE- 
3% ; CUTED TO PERFORM ERROR ANALYSES. 
98 : IF THE ERROR IS CAUSED BY HARDWARE, THE SEVERITY (FATAL OR NON-FATAL) 
739 : AND STANDARD ERROR CODE ARE SETUP. 
4 1 : INPUTS: 
4 4 : RS = CONTENTS OF Rx0B (IF ENTRY IS FROM CONSOLE INTERRUPT DISPATCHER) 
404 ; = CO-ROUTINE ENTRY POINT 
4 5: RS = ADDRESS OF bce. 
4 ; + OUTPUTS: 
409 : CONTAINS ERROR CODE 
410 ; R LSB = 1, RETRIABLE ERROR 
411: R tsp = 0; FATAL ERROR 
alg : 
ae * 
415 DXPERR 
416 1OFORK FORK 
41 MOVZWL #SS$_CTRLERR,RO SASSUME CONTROLLER ERROR 
418 VL RT [COPY RXDB CONTENTS 
419 CLRL TASSUME ERROR IS FATAL 
420 EXTZV R2 SEXTRACT COMMAND FIEL 
421 CMPB erly “RXDB_K -FCMPa-8>" jFUNCTION  ¢ COMPLETE? 
4 ‘ BEQL L YES CHECK ERRORS 
4 CMPB =s-R2, #<DXP_RXDB_K_CMD@-8> ‘PROTOCOL RROR? 
426 BNEQ TIF NEQ GARBAGE IN SELECT FIELD 
425 CMPB sa R'1, #DXP_RXDB_K_PRTC :CHECK DATA BYTE 
4 6 Bea. ©: 50$ tIF EQL, PROTOCOL ERROR 
‘ a BRB 60$ 3ELSE E GARBAGE IN DATA BYTE 
4 § "  MOVZWL #SSS_PARITY.RO TASSUME DATA ERROR 
4 0 TSTB [TEST FOR DATA ERROR 
4 BLSS 508 SIF LSS DATA ERROR 
4 2 MOVZWL #SS$_FORMAT,RO SASSUME READ DELETED D 
4 F is BBS #DxP~ “RXDB y *DEL.R1,60$ :1F BIT SET, FATAL PORMAT ERROR 
4 7 ae INCL = RB ENONF ATAL ERROR 
4 a 2 DXSERR CALL COMMON EXCEPTION CODE 
4 : BRW RESTA CRESTART TRANSFER 
440 .DSABL LSB 
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vee ti START 1/0 OPERATION He oatt y Stasis DRIVER. SRCIDXPDRIVER.MAR:1 © a) 
i. | 
443 : REGDUMP = CONSOLE FLOPPY REGISTER DUMP ROUTINE | 
1 445 : THIS ROUTINE IS ENTERED TO COPY THE CONSOLE FLOPPY STATUS REGISTER 
1 44g ; CONTENTS (RXDB) TO THE SPECIFIED BUFFER. IT IS CALLED FROM THE DE- | 
44 : VICE ERROR LOGGING ROUTINE AND FROM THE DIAGNOSTIC BUFFER FILL ROU- | 
1 re : : 
! ? 3 INPUTS: 
1 452 : RO = ADDRESS OF REGISTER SAVE BUFFER 
4 33 R5 = ADDRESS OF UCB 
13 4 5 : OUTPUTS: 
13 4 3 : THE COPY OF RXDB RECORDED IN THE UCB IS SAVED IN THE SPECIFIED BUFFER. 
Hi 
1 461 REGDUMP: : 
80 02 DO 13 46¢ MOVL #2, (RO)+ [SET NUMBER OF DEVICE REGISTERS 
80 0004 C5 00 01 46 MOVL  § UCBSL_DX_RXDB(RS),(RO)* :COPY DEVICE REGISTER 
60 00BC (5 00 166 464 Sa MOVL UCBSL“MEBIA(RS) , (RO) ;COPY LAST DISK ADDRESS 
Se Bn ? 
166 468 ;+ 
166 4 ; : DXSUNITINIT = UNIT INITIALIZATION 
166 471 : THIS ROUTINE IS CALLED ON INITIAL DRIVER LOAD AND ON POWER RECOVERY 
166 472: 19 INITIALIZE THE UNIT. ON INITIAL DRIVER LOAD, IT ALLOCATES A 
166 473 : 128 BYTE SECTOR BUFFER FROM NON-PAGED POOL AND LINKS IT ONTO THE UCB. 
166 474 : IT THEN PUTS THE UCB ADDRESS INTO THE SLOT FOR UNIT 2 IN THE UCB LIST 
166 475 ; IN THE IDB. 
166 476 t ON POWER RECOVERY IT SIMPLY RETURNS. 
166 478 > INPUTS: 
166 480: RS = ADDRESS OF UCB 
166 481: 
198 ? § : OUTPUTS: 
1 é 4 : UCBSL_DX_BUF = ADDRESS OF SECTOR BUFFER 
1 486 * 
1 487 DXSUNITINIT:: 
446405 05 €0 01 4 8 BBS #UCBSV_POWER,UCBSW_STS(R5),30$ ; RETURN IF POWER RECOVERY 
00cc cS o3 168 4 TSTL yCBSL_OXx_BUF IR ) ; 1S THERE ALREADY A SECTOR BUFFER? 
E 12 ger 490 BNEG $ : YES, RETURN | 
54  00000000'GF DE 171 496 MOVAL G*EXESGL_NONPAGED,R4 — ; PUT ADDRESS OF  NON-PAGED POOL 
64 DD 138 49% PUSHL  (R4) : SAVE IPL IN POOL LIST HEAD 
64  00000000°8F DB 7A 495 MFPR —- #PRS_IPL, (R4) : SET ALLOCATION IPL TO 3 
51 8C BF 9A 181 49 MOVZBL #140,R1 : SIZE OF BLOCK TO ALLOCATE 
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START 1/0 OPERAS lou "378 P=} 138 88; 32: 13 DRIVER. SRC) DXPDRIVER.MAR: 1 ad 49, | 
00000009" F 16 0185 & $B fos ppghtonaneace ; ALLOCATE MEMORY 
1 LBC RO. g8, ; BR. IF FA LURE 
08 A 1 MOVW 3 STOR OF BLOCK N BLOCK 
oocc cS x $ ¢ i ite sonst “Bvt 0 es Io Ee cas (RS) SAVE ADDR BE OF ae ne 
"668 % A 19 § B1SW ruCbsA’ One TNE Oe BSu _STS TS(RS 3 SET BEVICE BNL INE 
64 8EDO 1A 5 208:  POPL (R4) : RESTORE IPL IN LISTHEAD 
0 34 45 p 1A § MOVL  UCBSL FRB (RS) AR R0 inf ADDRESS OF CRB 
AQ 1A MOVL  CRBSL-INTD*VECSL_1DB(RO) GET ADDRESS OF IDB 
Oat 5 1A8 MOVL R5, 106$L TUCBLSTSBCRT | UCB ADDRESS IN SLOT FOR UNIT 2 
1AF : ora of 1S BECAUSE CONSOLE FLOPPY CAN 
ar OS + INTERRUPT AS UNIT 2) 
1AF 1 
OS OlAF 513 308: RSB 
180 14 
1B 15 END 
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Symbol table “SEP=1984 00:14:13 CORIVER.SRCIDXPDRIVER.MAR; 1 (1) | 
$$$ = R 03 XESIOFORK aeeerere =X 04 
tt = 08888 seetete att 
ATS_NULL eeeeeere =X = 03 F_CANCEC s 4 | 
BIT... = 00000008 FLR ageectce = 
CONS INITIAL teneeees =X 04 FREADSTATUS = | 
CONSSTARTIO eereeeeer 04 F-WRITEDELDATA = | 
CRBSL INTD = 00000024 F-WRITESECTOR = j 
C$_DTSK eeeeeeee =X 03 IOB$L_UCBLST = 1 
DBSK_S = 9 05 IOCSMATVER eteneeee =X 04 
DDBSL-ACPD = 1 IOCSRETURN teeneeee X 04 
DDBSL— = 0000000¢ LOCSUFIKPCH eeseeeee X 04 
DEVSM_AVL eeerenee x 8 PRS_IPL eeeeeees x 4 
DEVSM_DIR teeeeree x REGBUMP 00158 R 4 
DEVSM_FOD eeeereee § RESTART 05 g 4 
DEVSM_1DV eeeeneee =X Siz... = 00000001 
DEVSM_NNM eeneeeee § X SS$_CTRLERR eeeeeree x 04 
DEVSM_ODV eeeeeeee =X SS$"FORMAT seeeeeee X 04 
DEVSM_RND eeeeeeee xX SS$-PARITY eeneerer X 04 
DEVSM_SHR teveneee x $$$" TIMEOUT eeeeeeee x 04 
DPTSC_LENGTH = 00000038 STARTIO 0000038 R 4 
DPTSC- VERSION = 000 9004 UCB$B_DEVCLASS = 00000040 
RITAB R 03 UCBSB_DEVTYPE = 00000041 
DPTSM_ SVP = UCBSB_DIPL = 00 OSE 
DPTSREINITAB 9 8 0 UCB$B_DX_SCTCNT = Q00000DA 
DPT$T 00000 R 0 UCBSB_ERTCNT = 44 t4 
DT$_RX01 eeeeenee Xx UCBSB_ERTMAX z 900 081 
DXSERR eeeeereer X 04 UCB$B_F IPL = 0008 
DXSFUNC TABLE eeeeeeeer X 04 UCBSB-SECTORS = 00000044 
DXSSTARTIO eeereree x 04 UCBSB_TRACKS = 000 9045 
DXSUNITINIT 00000166 RG 4 CBSL_CRB = 000 6 4 
x 00000 RG 04 UCBSL_DEVCHAR = 999 038 
DXPSOPT 0000000 RG 01 UCBSL_DEVCHAR2 = 00 4 C 
DXPERR 000115 R 04 UCBSL_DX_BFPNT = 00000000 
DXF INP 9 R 04 UCBS$L_DX~BUF = 99000C¢ 
DXPOUT R 04 UCBS$L_DX-RXDB = 00000004 
DXPWRITE 0 R 04 UCBSL_FR3 = 38 dh 
DXP_END eeeeneeer =X 03 UCBS$L_MAXBLOCK = 99 080 
XP"A_C = 8 UCBSL-MEDIA = 990008. 
DXP~RRDE_K_CMD = 00 . UCBSM_INT = 00 Bae 
OXP"RXDB _K-F CMP = 00( UCBSM_~NOCNVRT = 00000004 
DXPTRXDE~K~PRTC = 00000 UCBSMONL INE : 010 
“RXDB~M~CRC = 000 UCBSM_TIM = 00000001 
DXP_RYOB_M_DEL = 000 CBSV_OX_WRITE = ; 
DXP"KXDB-M_ERR = ( UCBSV~INTTYPE = 99 9 
DXP"RXDB-M~ INI = 0000t “POWER 2 5 
DXP"RXDB_M_PAR = UCBSW~CYLINDERS = 0000004 
DXP”RXDB-V~CRC = 00 “DEVBUF $12 z 004 
DXP“RXDB-V~DEL = ( UCBSW-DEVSTS = 6 
DXP“RXDB-VERR = STS z 064 
DXP~RXDB~V~ INI . UNSOLAT 165 R 04 
OXP_RXDB_V_PAR = VECSL_1DB = 00000008 
DYNSC_BUFIO : 
DYNSC_DDB 2 
dae 9 z 
DYNSC-UCB z 
EXE SACONONPAGED eeeeeeee x 04 | 
EXE$GL_NONPAGED teeeeeee X 04 | 
| 
| 
| 
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DRIVER. SRCIDXPDRIVER.MAR:1 2, 


fase senmasseamaoczat$ 


! Psect synopsis ! 


gooemoncacwemrawsan $ 


PSECT name Allocation PSECT No. Attributes 
- ABS . ( ->) 00 ¢ 0.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
BLANK . ( -) ss -) NOPIC USR CON REL LCL NOSHR' EXE RD WRT NOVEC BYTE 
$aBS$ ( :) ; ( 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
oes 1 e_PROLOGUE D ¢( 161.) ( -) NOPIC USR CON REL LCL NOSHR’ EXE RD WRT NOVEC BYTE 
$$$115_ DRIVER 00180 ¢ 432.) 04 ¢ 4.) NOPIC USR CON REL LCL NOSHR EXE AD WRT NOVEC LONG 
tonrmemewe seme ane nano m nae we >} 
! ; Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 1 0:00:00. 0:00:02.1 
gonnens processing 120 - He 0:00:0 3 
Symbol table sort a (00:01:88 90;00,13: 
able sor : 2:00:12. 
109 0:00: £98 0:00:1 8 
oe F table output 14 BOR: $ 0:00:00.0 
Psect synopsis output 1 \ B's 0.0 
Cross-reference output 0 09: 00:4 0 ‘ :00: 3°? 
Assembler run totals 661 15.0 0:01:50.4 


The working set Limit was 1590 popes. 
84630 bytes (166 pages) of virt memory were used ee buffer the intermediate sge e. 
There were 80 pages of symbol table space or iecated & hold 1480 non-local and 15 local symbols. 
source Lines were read in Pass 1, producing 17 object records in Pass 2. 
pages of virtual memory were used to define 31 macros. 


Macro Library name Macros defined 


-$522 pouags: SYS.O0BJJLIB.MLB;1 23 
8: SYSLIBISTARLET. ALB;2 3 

Tors (all Libraries) 2 

1723 GETS were required to define 29 macros. 

There were no errors, warnings or information messages. 
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